home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Testing & Debugging / Virtual User tools / SPEC S&L v.1.0.1 / Tools / FileTool / FileTool.vu < prev   
Encoding:
Text File  |  1993-09-07  |  6.2 KB  |  286 lines  |  [TEXT/MPS ]
  1. Libraries "FileTool.vulib";
  2.  
  3. task ReturnErrorString( errorStringEntry )
  4. begin
  5.     if IsUndefined( errorStringEntry )
  6.         return "";
  7.     else
  8.         return errorStringEntry;
  9. end;
  10.  
  11. script FileToolSample()
  12. begin
  13.     m := FileTool( "Initialize", match[ target ] );    # Initialize the FileTool on the TARGET.
  14.     if m[1] <> 0                                    # If error during initialization,
  15.     begin
  16.         println "FileTool could not be initialized";        # print error
  17.         println "Error ", m[1], ". ", ReturnErrorString( m[3] );
  18.         exit;                                        # & exit this script.
  19.     end;
  20. (*    
  21.     println "File:";
  22.     m := FileTool( "Beep", 1 );    
  23.     if m[1] = 0
  24.         println "Okay";
  25.     else
  26.         println "Beep error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  27.             
  28.     volumeNamesList := tryVolumeList(); 
  29.     volumeName := volumeNamesList[1] + ':';
  30.     println volumeName;
  31.  
  32.     tryFileExists( "{volumeName}tempvu" ); 
  33.  
  34.     tryCreateFile( "{volumeName}tempvu" ); 
  35.  
  36.     tryFileExists( "{volumeName}tempvu" ); 
  37.  
  38.     tryForgetFile( "{volumeName}tempvu" ); 
  39.  
  40.     tryCreateFolder( "{volumeName}tempFolder" );
  41.     
  42.     tryFileExists( "{volumeName}tempFolder" ); 
  43.  
  44.     tryRenameFile( "{volumeName}tempvu", "{volumeName}tempvu.temp" ); 
  45.     
  46.     tryMoveFile( "{volumeName}tempvu.temp", "{volumeName}tempFolder:tempvu.temp" ); 
  47.     
  48.     tryWriteFile( "{volumeName}tempFolder:tempvu.temp", "this is the 2nd test∂n for this tool on target∂n" ); 
  49.     
  50.     tryReadFile( "{volumeName}tempFolder:tempvu.temp" ); 
  51.  
  52.     tryFileCopy( "{volumeName}tempFolder:tempvu.temp", "{volumeName}tempFolder:tempvu.temp2" );
  53.  
  54.     tryAppendFile( "{volumeName}tempFolder:tempvu.temp", "{volumeName}tempFolder:tempvu.temp2" ); 
  55.  
  56.     tryEraseFile( "{volumeName}tempFolder:tempvu.temp" );
  57.  
  58.     tryDeleteFile( "{volumeName}tempFolder:tempvu.temp" ); 
  59.  
  60.     tryDeleteFile( "{volumeName}tempFolder" ); 
  61.  
  62.     tryFindFolder( "pref" ); 
  63.  
  64.     tryReadVersion( "Shelob:Test1" ); 
  65.     tryReadVersion( "Shelob:Applications:TeachText" );
  66.     tryReadVersion( 'Grishnash:Development:MPW:MPW Shell' );
  67.     tryReadVersion( 'Grishnash:RV:Projects:FileTool 2.0.1:FileTool.vu' );
  68. *)
  69.     tryResourceExists( 'Shelob:Applications:TeachText', 'vers', 1 );
  70.     tryResourceExists( 'Shelob:Applications:TeachText', 'vers', 2 );
  71.  
  72.     tryResourceExists( 'Shelob:Test1', 'xxxx', 1 );
  73.     tryResourceExists( 'Shelob:Test1', 'xxxx', 2 );
  74.  
  75. end;
  76.  
  77. task tryCreateFile( pFilePath )
  78. begin
  79.     println "CreateFile:";
  80.     m := CreateFile( pFilePath ); 
  81.     println m;
  82.     if m[1] = 0
  83.         println "Okay";
  84.     else
  85.         println "Create error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  86.  
  87. end;
  88.  
  89. task tryCreateFolder( pFilePath )
  90. begin
  91.     println "CreateFolder:";
  92.     m := CreateFolder( pFilePath ); 
  93.     println m;
  94.     if m[1] = 0
  95.         println "Okay";
  96.     else
  97.         println "Create Folder error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  98.  
  99. end;
  100.  
  101.  
  102. task tryRenameFile( pFilePath, pNewName )
  103. begin
  104.     println "RenameFile:";
  105.     m := RenameFile( pFilePath, pNewName ); 
  106.     println m;
  107.     if m[1] = 0
  108.         println "Okay";
  109.     else
  110.         println "Rename error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  111.  
  112. end;
  113.  
  114. task tryMoveFile( pFilePath, pNewName )
  115. begin
  116.     println "MoveFile:";
  117.     m := MoveFile( pFilePath, pNewName ); 
  118.     println m;
  119.     if m[1] = 0
  120.         println "Okay";
  121.     else
  122.         println "Move error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  123.  
  124. end;
  125.  
  126. task tryWriteFile( pFilePath, pStr )
  127. begin
  128.     println "WriteToFile:";
  129.     m := WriteToFile( pFilePath, pStr ); 
  130.     println m;
  131.     if m[1] = 0
  132.         println "Okay";
  133.     else
  134.         println "Write error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  135.  
  136. end;
  137.  
  138. task tryEraseFile( pFilePath )
  139. begin
  140.     println "EraseFile:";
  141.     m := EraseFile( pFilePath ); 
  142.     println m;
  143.     if m[1] = 0
  144.         println "Okay";
  145.     else
  146.         println "Erase error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  147.  
  148. end;
  149.  
  150. task tryDeleteFile( pFilePath )
  151. begin
  152.     println "DeleteFile:";
  153.     m := DeleteFile( pFilePath ); 
  154.     println m;
  155.     if m[1] = 0
  156.         println "Okay";
  157.     else
  158.         println "Delete error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  159.  
  160. end;
  161.  
  162. task tryFileExists( pFilePath )
  163. begin
  164.     println "FileExists:";
  165.     m := FileExists( pFilePath ); 
  166.     println m;
  167.     if m[1] = 0
  168.         println "Okay";
  169.     else
  170.         println "FileExists error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  171.  
  172. end;
  173.  
  174. task tryForgetFile( pFilePath )
  175. begin
  176.     println "ForgetFile:";
  177.     m := ForgetFile( pFilePath ); 
  178.     println m;
  179.     if m[1] = 0
  180.         println "Okay";
  181.     else
  182.         println "ForgetFile error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  183.  
  184. end;
  185.  
  186.  
  187. task tryFileCopy( pFilePath, pDestName )
  188. begin
  189.     println "FileCopy:";
  190.     m := FileCopy( pFilePath, pDestName ); 
  191.     println m;
  192.     if m[1] = 0
  193.         println "Okay";
  194.     else
  195.         println "File Copy error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  196.  
  197. end;
  198.  
  199. task tryVolumeList()
  200. begin
  201.     println "VolumeName:";
  202.     m := VolumeList(); 
  203.     println m;
  204.     if m[1] = 0
  205.         println "Okay";
  206.     else
  207.         println "File Copy error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  208.     return m[2];
  209. end;
  210.  
  211. task tryReadFile( pFilePath )
  212. begin
  213.     println "Read:";
  214.     m := Read( pFilePath, 5 ); 
  215.     println m;
  216.     if m[1] = 0
  217.         println "Okay";
  218.     else
  219.         println "Read error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  220.  
  221.     println "ReadUntil:";
  222.     m := ReadUntil( pFilePath, '2', 5 ); 
  223.     println m;
  224.     if m[1] = 0
  225.         println "Okay";
  226.     else
  227.         println "ReadUntil error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  228.  
  229.     println "ReadLine:";
  230.     m := ReadLine( pFilePath, 5 ); 
  231.     println m;
  232.     if m[1] = 0
  233.         println "Okay";
  234.     else
  235.         println "ReadLine error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  236.  
  237. end;
  238.  
  239. task tryAppendFile( pFilePath1, pFilePath2 )
  240. begin
  241.     println "AppendFile:";
  242.     m := AppendFile( pFilePath1, pFilePath2 ); 
  243.     println m;
  244.     if m[1] = 0
  245.         println "Okay";
  246.     else
  247.         println "Append error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  248.  
  249. end;
  250.  
  251. task tryFindFolder( FolderID )
  252. begin
  253.     println "FindFolder:";
  254.     m := FindFolder( FolderID ); 
  255.     println m;
  256.     if m[1] = 0
  257.         println "Okay";
  258.     else
  259.         println "FindFolder error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  260.  
  261. end;
  262.  
  263. task tryReadVersion( pFilePath )
  264. begin
  265.     println "ReadVersion: '{pFilePath}'";
  266.     m := ReadVersion( pFilePath ); 
  267.     println m;
  268.     if m[1] = 0
  269.         println "Okay";
  270.     else
  271.         println "ReadVersion error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  272.  
  273. end;
  274.  
  275. task tryResourceExists( pFilePath, pResType, pResID )
  276. begin
  277.     println "ResourceExists: '{ pFilePath}', '{ pResType }':{ pResID }";
  278.     m := ResourceExists( pFilePath, pResType, pResID ); 
  279.     println m;
  280.     if m[1] = 0
  281.         println "Okay";
  282.     else
  283.         println "ResourceExists error ", m[1], " occurred. ", ReturnErrorString( m[3] );
  284.  
  285. end;
  286.